home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / dev / amos / jdlib4_6.lha / Progs / AMOSExamine.AMOS / AMOSExamine.amosSourceCode
AMOS Source Code  |  2008-12-10  |  2KB  |  56 lines
  1. Proc CAP : F$=Param$
  2. Screen Open 0,640,256,4,Hires
  3. Palette $AAA,0,$FFF,$679 : Cls 0 : Colour Back $AAA
  4. Hide : Curs Off : Cls 0
  5. If F$="" Then End 
  6. Volume 63
  7. On Error Goto _ENDE
  8. Open In 1,F$
  9. A$=Input$(1,4)
  10. If A$="AmBk" Then Goto _SOUND_PIC
  11. If A$="AmSp" Then Goto _SPRITE
  12. End 
  13. _SOUND_PIC:
  14. A$=Input$(1,8)
  15. A$=Input$(1,10) : If Left$(A$,8)<>"Samples " Then Goto _MUSIC
  16. A=0 : For X=9 To 10 : A=A+Asc(Mid$(A$,X,1)) : Next 
  17. Close 1
  18. Load F$ : For X=1 To A : Sam Play X : Wait 25 : Next : End 
  19. _MUSIC:
  20. If Left$(A$,8)<>"Music   " Then Goto _PIC
  21. Close 1
  22. Load F$ : Music 1 : _WAIT_EVENT : Music Off : End 
  23. _PIC:
  24. If Left$(A$,7)<>"Pac.Pic" Then Close 1 : End 
  25. Load F$,6 : Unpack 6 To 2 : Screen 2 : Wait 5 : _WAIT_EVENT : End 
  26. _SPRITE:
  27. A$=Input$(1,2) : A=Asc(Right$(A$,1))+Asc(Left$(A$,1))
  28. Close 1
  29. Screen Open 0,640,256,32,Lowres
  30. Load F$
  31. Curs Off : Flash Off : Get Sprite Palette : Cls 0 : Hide 
  32. On Error Goto _END
  33. Wait 5 : For X=1 To 10 : Bob X,X*34-32,34,X : Next 
  34. For X=11 To 20 : Bob X,(X-10)*34-32,68,X : Next 
  35. For X=21 To 30 : Bob X,(X-20)*34-32,102,X : Next 
  36. For X=31 To 40 : Bob X,(X-30)*34-32,136,X : Next 
  37. For X=41 To 50 : Bob X,(X-40)*34-32,170,X : Next 
  38. For X=51 To 60 : Bob X,(X-50)*34-32,204,X : Next 
  39. For X=61 To 70 : Bob X,(X-60)*34-32,238,X : Next 
  40. _END:
  41. _WAIT_EVENT
  42. _ENDE:
  43. End 
  44. Procedure CAP
  45.    A=Deek($70000)
  46.    P$=""
  47.    For X=1 To A
  48.       P$=P$+Chr$(Peek($70001+X))
  49.    Next 
  50. End Proc[P$]
  51. Procedure _WAIT_EVENT
  52.    LOP:
  53.    If Inkey$="q" Then Pop Proc
  54.    If Mouse Key=2 Then Pop Proc
  55.    Goto LOP
  56. End Proc